home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 11, No. 09 (1990-09)(MindCraft Publishing)(Side A)[a].zip / Nibble Volume 11, No. 09 (1990-09)(MindCraft Publishing)(Side A)[a].po / BLOX.bas < prev    next >
BASIC Source File  |  1996-12-24  |  522b  |  2 lines
  1. 1  HGR : POKE 49234,0: SCALE= 10: ROT= 48: HCOLOR= 0: FOR T = 768 TO 774: READ A: POKE T,A: NEXT : POKE 233,3: POKE 232,0: FOR XXX = 0 TO 999: READ X,Y: ON (X = 0  AND Y = 0) GOTO 2:DX = 0:Y = Y *10: XDRAW 1 AT 0,Y: FOR D = 0 TO X *10: XDRAW 1 AT DX,Y: XDRAW 1 AT D,Y:DX = D: NEXT D,XX
  2. 2  DATA 1,0,4,0,62,44,0,19,2,19,3,19,5,18,2,18,3,18,5,17,2,17,3,17,4,17,5,15,1,15,2,15,3,15,4,15,5,13,3,13,4,13,5,12,3,12,5,11,1,11,2,11,3,11,4,11,5,9,3,9,4,9,5,8,3,8,5,7,1,7,2,7,3,7,4,7,5,5,1,5,3,5,4,5,5,3,3,3,4,3,5,2,3,1,3,1,4,1,5,0,0